﻿Imports ADODBU
Imports System.Web.Mvc


Public Class Trustee
    Public Shared Sub GetModule(ByRef s As UserAccess)
       
        Dim mListJournal As New ADODBU.RowClassList(Of clsvi_GetTrusteeRow)
       
        Dim vd As UserAccess = New UserAccess()

        Dim tr As New clsvi_GetTrustee
        mListJournal = tr.GetRowList(Connection.GetDBConn, " where User_Names='" & s.UserID & "' and mod_id='" & s.ModuleID & "' order by Mod_Group,Mod_ID")


        If mListJournal.Count > 0 Then

            s.id = mListJournal(0).Mod_ID
            s.title = mListJournal(0).Mod_Name
            s.url = mListJournal(0).Mod_URL

        End If
        'End Select
    End Sub
End Class
